home *** CD-ROM | disk | FTP | other *** search
/ System Booster / System Booster.iso / Archives / Converters / EpsLab_1_02.lha / EpsLab / Italiano / Installa < prev    next >
Encoding:
Text File  |  1994-11-17  |  3.1 KB  |  170 lines
  1. ; Installation program for the Commodore's Installer utility
  2.  
  3. (complete 0)
  4.  
  5. (set name
  6.     (askdir
  7.         (prompt "Dove vuoi installare EpsLab ?\n(verrà creato un cassetto 'EpsLab' \
  8. se non esiste già)")
  9.         (help @askdir-help)
  10.         (default "")
  11.     )
  12. )
  13.  
  14. (set name (tackon name "EpsLab"))
  15.  
  16. (if (NOT (exists name))
  17.     (makedir name
  18.             (infos)
  19.     )
  20. )
  21.  
  22. (set @default-dest name)
  23.  
  24. (if (exists (tackon name "EpsLab.info"))
  25.     (message (cat "Attenzione: i tooltypes della vecchia versione saranno "
  26.                 "cancellati: ricordati di salvarli prima di procedere.")
  27.     )
  28. )
  29.  
  30. (set vernum (/ (getversion) 65536))   ; se version >37: c'è localizzazione
  31.  
  32. (if (> vernum 37)
  33.     (set local
  34.         (askbool
  35.             (prompt "Vuoi installare i file di supporto per la lingua italiana ?")
  36.             (help local-help)
  37.             (default 0)
  38.         )
  39.     )
  40.     (set local 0)
  41. )
  42.  
  43. (if local
  44.     (if (and (= @user-level 2) (exists "LOCALE:catalogs/italiano"))
  45.         (set sysdest
  46.             (askchoice
  47.                 (prompt "Dove vuoi installare il file di localizzazione ?")
  48.                 (help @askchoice-help)
  49.                 (choices "nello stesso cassetto di EpsLab" "in LOCALE:")
  50.                 (default 1)
  51.             )
  52.         )
  53.     )
  54. )
  55.  
  56. (if (not (exists "LOCALE:catalogs/italiano"))
  57.     (set sysdest 0)
  58. )
  59.  
  60. (complete 25)
  61.  
  62. (set maincpu (database "cpu"))
  63.  
  64. ;(if (AND (<> maincpu "68000") (<> maincpu "68010"))
  65. ;    (set fpu
  66. ;        (askchoice
  67. ;            (prompt "Hai il coprocessore matematico installato?")
  68. ;            (help @askchoice-help)
  69. ;            (choices "Si" "No" "Non lo so")
  70. ;            (default 0)
  71. ;        )
  72. ;    )
  73. ;
  74.     (set fpu 1)
  75. ;)
  76.  
  77.  
  78. (if (<> fpu 0)
  79.     (copylib
  80.         (source "/Libs/post.library")
  81.         (dest "LIBS:")
  82.         (confirm)
  83.         (prompt "Installazione della 'post.library'")
  84.         (help "Se vuoi che EpsLab crei delle immagini di preview complete, invece \
  85. che dei crossbox, devi installare la post.library")    )
  86.  
  87.     (copylib
  88.         (source "/Libs/post.library.2620")
  89.         (dest "LIBS:")
  90.         (newname "post.library")
  91.         (confirm)
  92.         (prompt "Installazione della 'post.library' (versione FPU)")
  93.         (help "Se vuoi che EpsLab crei delle immagini di preview complete, invece \
  94. che dei crossbox, devi installare la post.library")    )
  95. )    
  96.  
  97. (complete 50)
  98.  
  99. (if (exists "LIBS:post.library")
  100.     (
  101.      (if (not (exists "PSFONTS:" (noreq)))
  102.         (
  103.          (set psf 
  104.             (askdir
  105.                 (prompt "Ci vuole un cassetto in cui installare i font PostScript\n(non \
  106. verrà creato un nuovo cassetto)")
  107.                 (help @askdir-help)
  108.                 (default "sys:")
  109.             )
  110.          )
  111.          (startup "EpsLab"
  112.             (command (cat "assign PSFONTS: " psf))
  113.             (prompt "È necessario aggiungere in assign alla tua User-Startup.")
  114.             (help @startup-help)
  115.          )
  116.          (makeassign "PSFONTS" psf)
  117.         )
  118.      )
  119.      (copyfiles
  120.             (source "/PS/FunkyFont")
  121.             (dest "PSFONTS:")
  122.             (optional nofail)
  123.      )
  124.      (copyfiles
  125.             (source "/PS/afms/FunkyFont.afm")
  126.             (dest "PSFONTS:afms")
  127.             (optional nofail)
  128.      )
  129.     )
  130. )
  131.  
  132. (complete 75)
  133.  
  134. (copyfiles
  135.     (infos)
  136.     (source "/EpsLab")
  137.     (dest name)
  138. )
  139.  
  140. (copyfiles
  141.     (source "/PS/init.ps")
  142.     (dest name)
  143. )
  144.  
  145. (tooltype
  146.     (dest (tackon name "EpsLab"))
  147.     (noposition)
  148. )
  149.  
  150. (complete 90)
  151.  
  152. (if local
  153.      (if sysdest
  154.         (copyfiles
  155.             (source "/catalogs/italiano/EpsLab.catalog")
  156.             (dest "LOCALE:catalogs/italiano")
  157.         )
  158.         (
  159.             (makedir (tackon name "catalogs"))
  160.             (copyfiles
  161.                 (source "/catalogs/italiano/EpsLab.catalog")
  162.                 (dest (tackon name "catalogs/italiano"))
  163.             )
  164.         )
  165.     )
  166. )
  167.  
  168. (complete 100)
  169.  
  170.